!
!  Object is converted by Library Converter (4.0) at 92/04/25
!

!name: pattern_  29.06.1989.
!internal macro: -

shadow off
let m=int(b/c)
if m<2 goto 10
let n=b/m
for i=1 to m

addy n*(i-1)/cos(6)
rotx 6 
block a,n,1"

del 2
next i
10:end

